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І ап sorry if this issue is а little skimpy, and will 


probably be a little late as well. Don't jump to conclusions 
about a Xmas hangover. | 


Fact is I had а fall off а ladder, and that has slowed me 
up a "little". I do only use 2 fingers to type, but I like one 
on each hand, and my right arm is in a sling and not of much 
use. | | 


Ме had quite a gathering last meeting. We were able Ёо 


welcome Paul Frantz from North Q'ld. No doubt down here to 
look at dry ground for a change. | 


Remember our meetings are the first Sunday of the month at 
12 Thomas Str. MITCHAM. But if you are in Melb. anytime drop 
in. | 


Also missing is the 3rd article оп VZ SOUND. Bob is either 
having a holiday, or else gone down with the floods. What a 
state!!! | | 


Dave Mitchell's home is іп Rockhampton. We hope he did'nt 
fare badly. We have'nt heard. ood luck Dave. 


I draw attention to the series by David Wood on Mystry 
program writing. This is an excellent series, and well worth 
following, if not for Mystry writing then for the use of 
Basic. | 7 | 


| Тһе name changing routine for disk users is covered in BME 
сіп VZDU #15 starting at line 7570. That is one method. There 
are others. When the series is finished I will cover faster 


saving of Data to tape. 








DEATH MAZE 


‘REM THIS PROGRAM WAS WRITTEN 


REM IN 1988 BY BEN HOBSON 
REM AND TAKES UP 4.932 К 
REM 


 JX$=" JOYSTICK" : KBS="KEYBOARD" 


V=3: JY=0:W=1:5=0: HS=0: GOSUB1 180: GOTO1280: * CHUCK GOSUB 1180 з: 
MODE (1) : 6010370 | 

IFW=1THENX1=0: Yi=1: X=5: Ү=5 

IFW=2THENX1=0: Yi=1:2X=56: Y=29 

IFW=3THENX1=0: Y1=1: X=58: Y=25 


100 СО ОЕ2: FORA=116T0126: SET (A, 62) : NEXT: COLORS 


COLOR2: FORB=1 7020: RESET (X, Y) :FORG=17T020: NEXT: SET (Х, Y) 


104 FORG=1T020:NEXT:NEXT 


SOUNDi ó, 1318, 1;20,1;23,3;20,1;253,53 


120 A=RND (65): B=RND (127): : COLOR4: SET (В, Ads sCOLOR2: 5=5+10 


FOR FG=0 TO DY: NEXT FG 


130 H$=INKEY$: IFJY=1 THENGOTO740 


IFH$="A"THENY1=1: X1=0:GOTO180 


150 IFH$="0" THENY1=—1:X1=0:GOTO180 


IFH$="M" THENX 1=—-1: Y1=0: БОТО180 


170 IFH$=", "ТНЕМХі=1:Ү1=0: СО ОК2 


БЕТ (Х, Y): X=X+Xi:Y=Y+Yi: IFFOINT(X,Y)= LTHENSET (X, Y) :60T0120 


190 IFY= S2ANDX=116THENSZ0 


IFY=62ANDX=117THENS2O 


210 IFY=62ANDX=118THENS20 
220 IFY=62ANDX=119THENS20 
230 IFY=62ANDX=120THENS2O i 


IFY=A2ANDX=121THEN320 


250 IFY=62ANDX=122THEN320 © 


IF Y=62ANDX=123THENS20 


270 IFY=62ANDX=124THENS2O 


IFY=62ANDX=125THENS20 


290 IFY=62ANDX=126THENS2O 


300 IFPOINT (X, Y) -2?ТНЕМООТОВЗО 

510 GOTO850:60T0120 | 

520 Ѕ00МО51, 1:615: ҒОЕЈ=1Т01іО: РКІМТ" | *xx CONGRATULATIONS ЖЖЖ" 
330 CLS: PRINT” жұз CONGRATULATIONS ž44":CL5:NEXT 


340 PRINT:PRINT:PRINT:PRINT 
350 PRINT”YOU MADE IT THROUGH SCREEN "И 
360 IFW=STHENGOTOIEIO 


PRINT"NOW TRY SCREEN "3W+1:W=Wtl 


380 FORK=1TO2000: NEXT 


IFW=1 THENGOTO4630 


400 IFW=2THENGOTO420O 
410 IFW=3THENGOTO1430 
420 MODE (1) :COLORS: W=2 


FORA=0T0127: SET (A, 0) : ЗЕТ (A, 63): NEXT 


440 FORB=0TO63: SET (О, В) : SET (127, В) sNEXT 
450 FORC=0T047: SET (30, C) з SET (100, C) sNEXT 
460 FORD=31T063: SET (90,0) : БЕТ (115,0) : МЕХТ 


FORE=0T042: SET (80, E) : NEXT 


480 FORF=47TO80: SET (Е, 43) : МЕХТ 


FORG=117019: SET (6,8) sNEXT 


500 ЕОЕН=ВТО51: SET (19,H) : МЕХТ 


FORI=19T047: SET (1,51) : МЕХТ 


520 FORJ=i13T051:SET (47,7) : МЕХТ 
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1000 


FORK=47TO68: SET (K, 13) :МЕХТ 
FORL=13TOSS: БЕТ (68,L) : NEXT 
FORM=468TOSSSTEP—1:SET(M, 35) s NEXT 
FORN=35TO23STEP—1: SET (55, №) : МЕХТ 
FORO=S3TOS9: SET (0,25): NEXT 
FORF=23T032: SET (55,Р) : NEXT 
FORG=8T019: SET (10,0) : МЕХТ 
FORR=10T013:SET(R, 19) : NEXT 
ҒОЕТ=19Тт051: SET (15, T) : NEXT 
GOTO70 
MODE (1) :W=1: COLORS: FORA=O0T0O0127: SET (A, 0) SET (A, 63) : МЕХТ:  B=0 
=0: B=0: C=0: D=0: E=0: F=0:G6=0:H=O0O:1=0 | 
FORA=0OTO63: SET (0, А) SET (127,A) = NEXT 
FORA=14TO1STEP—1: B=B+i: SET (A, В) : NEXT 
FORA=30TO1ISTEP—1:C=C+1:SET(A,C) : NEXT 
FORA=4STOISTEP—1: D=D+1: SET (A, D) : NEXT 
FORA=60TO1STEP—-12E=E+1:SET(A,E) :NEXT 
FORA=7STOL4STEP—1:F=F+1:SET(A,F) :NEXT 
FORA=970TO29STEP—1 :G=6+1: SET (A, 6) :NEXT 
FORA=110T049STEP-—1:H=H+1 : SET (A, Н) : NEXT 
РОКА=125Тт0655ТЕР-1: I=I+1:5ET (A, I):NEXT 
FOR A=40T063: SET (115, A) = NEXT 
FOR A=40TO50: SET (87, А) : NEXT 
A=11:B=4:FORJ=1TOS: RESET (A, В): A=A—-13 B=B+1: NEXT 
A=17:B=14:FORJ=1TOS: RESET (A, В) :A=A—-1:B=B+1:NEXT 
A=40: B=6: FORJ=1 TOS: RESET (A, В) :A=A-1: B=B+1:NEXT 
A=70: B=6: FORJ=1 TOS: RESET (A, В) s A=A-1: B=B+12NEXT 
A=105: B=6: FORJ=1TOS: RESET (A, В) з: A=A—-1: B=B+12 NEXT 
=20: B=41:FORJ=1TOS: RESET (A, В) : A=A-1: В=В+1 : МЕХТ 
A=50: B=41:FORJ=17T05S: RESET (A, E) : А=А-1: В=В+1 : NEXT 
А=85: B=43: FORJ=i1 TOS: RESET (A, Б): АлА-і:Б-Біі:МЕХТ 
GOTO7O | 
IFV>1 THENSOUND4, 2:8,2:9,2;11,9:5-5-1000 
РОКЕ50744,0: Сі 5: PRINT: CLS: V=V-1 
FORJ=1T06: PRINT: NEXT 
TFV=2THENPRINT"%2 LIVES LEFT - PREPARE TO DIE” 
IFV=1THENPRINT"4THIS IS YOUR LAST RIDE SUCKERS" 
IF V=OTHENPRINT" xx TOO BAD YOU DIED x 
IFV=0OTHENGOSUB1240 
IF V=0OTHENF ORG=1TO2000: 60701280 
FORK=1T02000: NEXT: БОТО6О 
K= (INF (46AND43) АМ051) 
IFK=29THENY 1=1: Х1=0: 60Т0180 
IFK=30THENY 1=—1: X1=0:GOTO180 
IFK=27THENX 1=—1:Ү1=0: 60Т0180 
IFK=2S3THENX 1=1: Yi=0O:GOTO180 
COLOR?: SET СХ, Y) 
X=X+X1 :Y=Y+Y1 


1010 IFPOINT (X, Y)=3THENSSO 


1020 


IFPOINT (X, Y)=1 THENi2ZO 


1030 IFPOINT (X, Y)=4THENSSO 


1040 


CLS: РОКЕ50744, 1 


1050 CLS:PRINT” INSTRUCTIONS 


1060 


PRINT: PRINT" IN DEATH RACE YOU HAVE TO "sPRINT"NEGOTIATE"; 


1070 PRINT” YOUR WAY AROUND THE MAZE WITHOUT HITTING"; 


1080 


PRINT" YOUR OWN LINE , THE BOUNDARIES , OR ANY DOTS"; 


1090 PRINT” OR YOU WILL DIE. THERE ARE THREE SCREENS. 


1100 


PRINT: PRINT"FUNCTION KEYS | JOYSTICK" 


Н 


1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1205 
1210 
1220 
1250 
1240 
1250 
1260 
1270 
1280 
1285 
1290 
1295 
1300 
1305 
1310 
1515 
1520 
1525 
1550 
1335 
1340 
1345 
1350 
1355 
1360 
1361 
1365 
1370 
1375 
1380 
1385 


UP 
DOWN 
<M> LEFT 
PRINT"RIGHT <,> RIGHT 
PRINT: PRINT” PRESS <с> TO CONTINUE"; 
X$=INKEY$:X$=INKEY$: IFX$<>"C”THEN1160 
GOTO1280 
CLS: FORG=1 TOS: PRINT: NEXT 
PRINT" DEATH-RACE "a 
FORG=1T04:PRINT:NEXT 
PRINT” VERSION 11" 
PRINT” WRITTEN IN 1990 BY 
PRINT” BEN HOBSON 
GOT01240: RETURN 
IFS>HSTHENHS=5 
FORA=1 TOZ: SOUND4, 4: FORD=1T012:NEXTD, А: SOUND7, 3: FORD=1T012 
NEXT: SOUND4, 1: FORD=1TO12: NEXT: SOUNDS, 2: жыны SOUND4, 2 
FORD=1TO12: NEXTD, A: SOUNDS, 3; 4, 6: RETURN 

=3:W=1 
CLS:PRINT” 4 4 * DEATH КАСЕ k 4" 


PRINT”UP 
PRINT "DOWN 
РКІМТ"І ЕҒТ 


<0> 
<А> 


PRINT@71,"< > SELECT” 


PRINT@112, "SELECTED" 
PRINT@162,"<0> TO <9> DIFFICULTY LEVEL” 
PRINT@236,"(0) HARD” 
PRINT@268,"(9) EASY" 
PRINT@328, "<I> INSTRUCTIONS 
PRINT@392, "LAST SCORE 00000" 
PRINT@424, "HIGH SCORE 00000" 
PRINT@491,"PRESS KEY"; 
IFJY=1PRINT@103, JX$: =: PRINT@72, "K":PRINT@82, КВФ: SOUND10, 1 
IFJY=OPRINT@103, KB$: PRINTG72, "J": PRINT@S2, ЈХФ: SOUNDZO, 1 
A$=INKEY$: A$=INKEY$: IFA$=""THENI345 
IFAS="I3"THENTY=1:GOTO1335 
IFAS="K" THENJY=0: GOTO1335 
IFA$=" І" THENFOKE30744, 0: GOTO1050 e 
=ASC (A$) -48 2 
IFQ>=OANDO<=9THENDY= (0420) : S=O: 607050 
60T01345 
% 


1590 3: 


1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1550 
1540 
1550 
1560 
15/0 
1580 


MODE (1) :W=3: СО ОКЗ 
FORG=0T0127: SET (0,0) : SET (0, 63) : NEXT 
FORQ=0T063: SET (0,0) : SET (127, 0) 2 NEXT 
FORG=1T020: SET (0, 18) : МЕХТ 
ҒОКО--17018: SET (20,0) : МЕХТ 
FORG=1T025: SET (0, 25) : МЕХТ 
FORG=17T019: SET (0, 36) : NEXT 

FORG=1 T058: SET (0,58) : NEXT 
FORG=43T062: SET (115,0) sNEXT 
FORG=12T089: SET (0,52) МЕХТ 
FORG=68T0104:SET(Q,58) :МЕХТ 
FORQ=37T058: SET (104,0) : NEXT 
FORG=104T0122: SET (0, 57) : NEXT 
FORQ=22T037: SET (122,0) : МЕХТ 
FORQ=94T01 22: SET (0, 22) : NEXT 
ғака-187022: ЅЕТ (9,09) : NEXT 


A. 


1550 
1600 
1610 
1620 
1650 
1440 
1650 
1660 
1870 
1480 
1690 
1700 
1710 
1720 
1750 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
1820 
1830 
1840 
1850 
1860 
1870 
1880 
1870 
1700 
1910 
1920 
1930 
1940 


FORG=964T0115: SET (0, 18) : NEXT 
FORG=0T018: SET (115,0) sNEXT 
FORG=12TO8S: SET (Ө, 45) s NEXT 
FORG=4T043: SET (85,0) : NEXT 
FORG=83T0102: SET (0, 4) : NEXT 
FORG=4TO15: SET (102,0) : NEXT 


FORG=87TO102: SET (0, 15) s NEXT 


FORG=15TO25: SET (87,0) :МЕХТ 
FORQ=87T0107: SET (0, 25) : NEXT 
FORG=25TOS0: SET (107,0) : NEXT 
FORG=89TO107: SET (Ө, 30) : NEXT 
FORG=30TOS2: БЕТ (89,0) = NEXT 
FORG=12T043: SET (33, G) : NEXT 
FORG=12T033: SET (0, 32) : NEXT 
ҒОКО-28Т052: БЕТ (0,12) : NEXT 
FORQ=12T021: SET (28,0) : NEXT 
FORQ=28TOS33: SET (0, 21) : NEXT 
FORG=0TO1é: SET (60,0) : NEXT 
ҒОКО-ОТОВ: SET (43, 0) : NEXT 
FORG=43TO60: SET (0,8) : NEXT 
FORQ=43T074: БЕТ (0,17) sNEXT 
FORG=17TO36: SET (45,0) : NEXT 
FORG=17TO36: SET (74,0) : NEXT 
ҒОКО-517066: БЕТ (0, 32) s NEXT 
FORG=23TO32: SET (66,0) : NEXT 
FORG=23T032: SET (51,0) s NEXT 
FORG=22T0O28: SET (55, G) : NEXT 
FORG=55T061: SET (0, 22) : МЕХТ 
FORQ=227T028: SET (62,0) s NEXT 
GOTQ70 | 
PRINT” AT ІЕУЕ ";рҮ/2О 
РКІМТ. 


PRINT"NOW TRY ALL 3 AGAIN АТ LEVEL "; 


IFDY /20=0PRINT"0”" : GOTO1940 
DY=DY—20:PRINTDY/20 


FORZ=1TO5000: NEXT: W=1: GOTOS90 


THE SCREAM SHEET 


г. а б И Ву Тһе Official SCREAMER- 





EVERYTHING'S GOING SCREAMINGLY. 

Hee, hee, heeee. I've done it! I've finally stumped that little machine in 
the end room. There it sat, its screen blank with confusion; just as it has caused 
me to sit so often, MY mind a blank. Before I tell you what I did, let me first 
relate to you the "Saga of my Second Computer". | 

Late іп 1989 I decided to up-grade my qualifications. I was working as a 
driver and yearned for a more interesting occupation, but I had a problem——no 
qualifications, no special experience. So in 1990 I begana part-time external 
(correspondence) university course. With the aid of the VZ-300 and Word-pro 
cartridge I worked over-time. I pruned 4,500 word essays down to the required 2,000 
words. I printed and reprinted. I saved, saved again, merged and resaved...all оп 
tape. And thereby hangs this tale. | | 

Saving, verifying and loading from tape was agonisingly slow. Midnight came 
and went with monotonous regularity. As well as my course І still had two sons, a 
husband and a house to care for and I still had a five hour a day driving job. My 
eyes were wearing out faster than my tyre treads and printer ribbons. What to do? 
Here's where "Dear Harry..." came back to the rescue. | 

After receiving my letter about needing а second computer, because my sons were 
complaining that a certain mother was monopolising THEIR computer ("After all Mum, 
we have assignments to do too!" "And high scores to beat," his brother added) ‘Dear 
Harry..." replied that а second-hand У2-300 was available. Not only that, but disc 
drive, power pack and etceteras were also available. I jumped at it-——wmy very own 
computer, complete with disc drive——but I had an end-of-year assignment to put in, 
so it sat in the corner for a month. | 

Тһе day came to unpack, hook-up and revel in the glory of total ownership, 
BUT...what's that!! NO COLOUR and it won't work on cassette! How will I transfer 
my records to disc? What'll I do? Take too long for a letter...blow the phone 
bill...ring, rring..."Hey Harry, it's met” Yes, Harry to the rescue again, this 
time with the help of another VZ-er, Nifty Nev. Nev pulled it apart, said "Oh dear” 
and told Harry. Harry said "Oh dear" and promptly despatched a replacement computer 
to my post box. 

A WHOLE FORTNIGHT LATER. (Another phone bill blowout.) "Er...Harry, it's me. 

No, it hasn't arrived. Didn't you send it?" A trip to town to the Р.О. "No, we 
haven't received it. No, there's по record of it in the book. It can't have 
arrived.” "No, madam, it's no good looking in the cupboard. Yes, it's the cupboard 
with the door open." "Тіз box, madam? У2-300 computer box with your address on 
it, madam? Here you are...but madam, it's NOT IN THE BOOK.” 

Speed home. Unpack it, hook it up, load a tape. Great...but...oh no...where's 
the colour going? Nev fiddled with the colour thingummy, said it must have gotten 
jiggled in-transit and home I went again. And that's when it happened. | 

I connected up the cassette to load а tape to transfer to disc, then 
connected up the disc drive and turned the computer on. The screen went blank. It 
lost its little tail-wagging cursor. A row of question marks appeared along the top 
of the screen. IT DIDN'T KNOW WHAT TO DO! Hee, hee, hee...sob, sob.. .HA-A-ARRY !!! 


Wo Т No brickbats??? 





Dear Editor, 


= I was rather interested in | | : 
the Letter. toa. the Editor in. е ТРИ 
#26, Sept/Oct, 1990 edition of ЖЕБЕ PARÉE /2 
the newsletter. i | Их ри #27 


It looked like а bit of fun EN) 

and something unusual, so 1 Ж (ЕФ” 

was very disappointed to | ~ 
progress no further than "OUT 

OF DATA ERROR ІМ 10" which was 

the very first line. 0 


Please repeat this exercise Бо 

that I might be able ta join 

in ‘the fun and read the 
letter. : po 


regards, 
"Mystified." 


Athol Wedgewood writes:-— 


Accolades for the VZDU Database - it abounds with uses. I 
used it to list, group and value household items following а 
serious fire. Reserving different first characters for each item 
category, followed by alph. sorting simplified the task. The 
insurance assessor was very impressed with the printout, 
especially the running total of the amounts. and this enabled a 
fast settlement of the claim involving nearly 1000 items. | 


Athol. 


F.S. Thanks for a great newsletter. 


Z 


900 LINES 202 ON 


Paul has not 
Victoria. No doubt 


water!!! 


This issue we have an influx of new High Scores. One I don't 


understand, but Maybe Matthew can enlighten me or 


Paul. 


We have the second part of How to write Mystry Programs, from 
Also, standing by for a later issue another program from 


David Wood. 
Peter Ross. 


There is a good Maize program in this issue. It i 
| еге l к is not the "Run of 
the mill” up-down, left-right, but in a diagonal format, that makes it 


really hard. 


DAWN PATROL 
CRASH 

DIG OUT 
HAMBURGER SAM 
LADDER CHALLENGE 
KAMIKAZE 

TEN PIN BOWLS 
VZ INVADERS 
GALAXON 
PENGUIN 

LUNAR LANDER 


SUPER SNAKE 


MAZE OF ARGON 
ASTEROIDS 
CIRCUS 

PANIK 

HOPPY 

GHOST HUNTER 
STAR BLASTER 


written 


am printing 


it. 


Тһе HIGH Scores 


52500 
410 
24400 
59500 
22550 
11160 
185 
28080 
150000 
1350 
3600 
811 
73258 
11000 
1210 
7700 
25550 
23400 


480 units left 


GAMES COLUMN 


this column, as he has been down here in 
to have a look at a state that is not half under 


David Wood 
Harry Huggins 
Paul Frantz 


Stephen Frantz 


Peter Watso 


Peter 


Watson 


David Wood 


Peter 


Jason 
Jason 

Tim 
Peter 
Peter 
Peter 
Peter 


Matthew 


Chris 


Matthew 


Watson 


Nicole Huggins 


Oakley 


Oak ley 


Oliver 
Watson 
McLean 
Watson 
Watson 
McLean 
McLean 
McLean 


Matt. I don’t understand the 480 units left. 


Peter. I think 


with 80-90 WPM or more. 


we leave the typing out. A typist would come up 


- 


INSTALLING А LOAD/SAVE FEATURE FOR ADVENTURE PROGRAMS | 


In many adventures the playera find that aa they are nearing 
completion of the set taak, they need to go away and do something 
elase, like eat, or aleep. When they do ao they either leave the 
computer running and return to find the power aupply making an 
alarmingly loud buzzing noise and warm enough to burn fingers when 
touched (with the computer itaelf not much cooler), or they switch off 
and their progreasa disappeara forever. Тһе most obvioua solution to 
this problem ia to enable them to save the data relevant to their 
progresa to tape or diak where it can be loaded back into the program 
at a later date. 

The command beat auited to thia on the VZ ia the PRINT# command, 
which is unfortunate, because it doean’t work! (except on the old 
у2200 datasette, and even in this case extremely slowly.) 

Fortunately for diak drive usera the DOS equivalenta of the PRINT# 
and INPUT# commands do work, ао you won’t have to mess around trying 
to find the right memory loaction to move your data to, but as I am 
not а disk drive owner, I am unsure of how quick or efficient these 
are. To save the data the following is used: 


7000 CLS: PRINT"INSERT DISK IN DRIVE": GOSUB 979 
7010 OPEN “ADVDATA", 

7020 PR# “ADVDATA", R oa 

7030 FOR I=1 TO 35: PR# “ADVDATA",FCI): NEXT 
7040 FOR І=1 TO 17: PR# "“ADVDATA",C(I): NEXT 
7950 CLOSE "“ADVDATA" 

7060 RETURN 


Note that the aubroutine at 970 place the measaage "PRESS ANY KEY ТО 
CONTINUE....." at the bottom of the screen and waita until the user 
haa pressed а key before RETURNing. If you have two diak drivea you 
will have to use а message like "INSERT DATA DISK IN DRIVE 2" and 
веіесі the appropriate drive uaing the DRIVE command. 

To load the data again the following linea would be used: 


7100 CLS: РБІМТ"ІМЗЕКТ DATA DISK IN DRIVE": GOSUB 97@ 
7110 OPEN “ADVDATA",® 

7120 IN# “ADVDATA",R,S,W 

7136 FOR I=1 ТО 35: IN# “ADVDATA",F(I)! NEXT 

7140 FOR І-1 TO 17: IN# "ADVDATA",C(1): NEXT 

7150 CLOSE “ADVDATA" | 

7169 RETURN 


One problem with saving the data to disk with any парва is that апу 
particular filename can only appear once on any disk. So once you have 
saved а file to diak using the filename ADVDATA you cannot save апу 
other file with the same name. The only possible solutiona I can think 
of to thia ia to ERASE any old files of the same name before saving, 
or alternatively, more experienced programmera could ask the player to 
give hia or her file a name, find exactly where the filename appeara 
in the program code in RAM, and POKE the new filename into these 
locationa. (Note that the wonaada SAVE Ая will NOT work.) 


10 PRINT "THIS IS A SAMPLE MESSAGE......" 

209 CLEAR зе 

Зе PRINT “INPUT А NEW MESSAGE ": INPUT" (Зе CHARS. MAX.)":AS 
32 {ІР AS = "" THEN STOP 


35 ‘MAKE LENGTH OF USER MESSAGE EQUAL ТО 39 CHARS 

40 IFLEN(AS)<3@ THEN AS=AS+".": GOTO 40 

50 FOR I=1 TO 30 

55 “СЕТ ASCII VALUE OF NEXT CHARACTER IN MESSAGE 

60 А = ASC. MIDS(AS,I,1)) 

65 “AND POKE IT INTO MEMORY LOCATION 

67 “(31471 IS THE LOCATION OF THE FIRST “Т” IN “’THIS’) 
7@ POKE 31470+1,A | 

75 “СО BACK FOR NEXT CHARACTER IN THE MESSAGE 

80 NEXT Е 
85 “CLEAR THE SCREEN AND СО BACK TO PRINT THE NEW MESSAGE 
9@ CLS: GOTO 10 


Thia. program demonatratea how it ia possible for a program to alter 
itaelf. If you intend to type it іп, make saure you type line 10 
exactly аа it appears. You can leave out the REM (°) statements if you 
Wish. When you run the program, if you wish to atop typing in 


messages, juat preaa RETURN at the prompt. LIST the program and note 


how line 19 haa altered. Тһе asame method could be applied to changing 
the filename of the adventure data, but you may have some difficulty 
finding where the SAVE and LOAD atatements appear in RAM. (Cassette 
ownera пау also consider using this method ао that the filea on the 
tape сап be easily diatinguiahed from one another.) 

The solution to the PRINT# bug for cassette ownera із to move the 
data to а position in high memory, and then save this section of 
memory to tape. To reload the data, the reverse process ia used - the 
data ia loaded into high memory from tape and then returned to the 
necessary arraya and variables. | 


Before you attempt to іпаіа11 thia feature you should have your 


program otherwise completely finished and saved to tape or disk. IF 


YOU MAKE AN ERROR YOU COULD DESTROY THE CONTENTS OF YOUR PROGRAM. The 
program must be finished аа you need to be able to keep track of the 
end of BASIC at all timea. 

The position іп memory where you atore thia data depends on your 
own memory aize and what you want to do with your program. If you want 
the program to be for your own use only, the end of your data should 
be juat over a quarter of a kilobyte (256 bytea) below your computer’sa 
top of memory. | | 


MEMORY LOCATIONS OF ТОР OF MEMORY 

Unexpanded У2300 - 47103 (-18433) expanded VZ200 - 33247 (-12289) 
expanded У2з300 - 63487 (-2049) V2200 +28K/V2Z300118K - 65535 (-1) 

(Note that each memory location above 32767 must have 65536 subtracted 
from it before it can be addressed by BASIC’a PEEK апа POKE commands. 
For example if you wanted to POKE a value of 42 into location 53247 
you would type either POKE 53247-65536,42 or POKE -12289,42. however 
if you wanted to PEEK at the value in memory location 28672, which is 
below 32767, you would type PRINT PEEK(28672).) 


If, however, you require the program, for use on several different 
configurations of VZ - for example, if you wished to send your program 
іп for use on one of VZ Down Under’s public domain tapes - you should 
choose the loweat top of memory value location possible, provided that 
there іа ай leaat about one and a half kilobytea spare. (HINT: To 
determine the amount of free memory, run your program until the firat 
location screen appears, then presa BREAK and type POKE 30862,212:РОКЕ 
30863,39: PRINT USR(®). Thia calla the MEM routine, which ia one the 


ѓо 


- 


you will get 31465 which ia the Start Of Basic. If you tried thia 
again with the End Of Basic pointer (30969 and 30970) you will get 
31469 if you don’t have а program in memory, and a higher value if you 
do. (In aome casea the value will be above 32767 во you might need to 
eaubtract 65536.) . | | 

Therefore what you need to do to save your data block to tape isa 
Place the memory location where your block starta into the Start Of 
Basic pointer, The memory location after where your block finishes (IE 
the final location PLUS one) into the End Of Basic pointer, CSAVE the 
block with the desired filename and then reatore these pointers to 
their original values. | | : | | 

To find the valuea to put in the pointers, the location of the 
atart of your data block should be divided by 256. The whole number 
part of the result із your Moat Significant Byte. Then take the value 
of the MSB, multiply it by 256 and subtract thia value from the 
original location number. Тһе reault of thia іа your Least Significant 
Byte. For example if the atart of your data block ia 52931, divide 
thia by 256 and your result will be 206.76563. Therefore іп thia саве 
the MSB іа 206. For the LSB, (2062256) із subtracted from 52931 and 
the reault іа 195. Therefore the value POKEd into 30884 іа 195 and 
30885 ia 206. А aimilar proceaa ia used to determine the valuea to 
be POKEd into the End Of Baaic Pointer - 30969 and 30972. The location 
of the епа of your data block PLUS ONE should be used. For example, if 
the end of your data block ia 52986, you should use а value of 52987 
for your EOB pointer - the MSB (POKEd into 30970) is 206 and the LSB 
 СРОКЕа into 30969) ia 251. | 

After thia, the next atep іа to sasave the data. То do this simply 
use the CSAVE "FILENAME" command. Then you must restore the values іп 
the pointera to what they were before you changed them. Unleaa you 
have done something really tricky with your program, your SOB (Start 
Of Basic) should be 31465 - а value of 233 in 30884 and а value of 122 
іп 30885. However with the EOB thinga get a bit more complicated. 
Every time you change your program and make it either shorter or 
longer, and the value in the EOB changes. This із why it is important 
not to inatall thia feature until your program is otherwise finished, 
aa you will need to change the value you reatore to the EOB pointer 
every time you alter the program. The beat мау to overcome thia іа to 
add your SAVE and LOAD routines using dummy values for 30969 апа 
30970. (EG 7070 POKE 30969, 000: POKE 30970,0800). THEN after you have 
finished, PEEK at 30969 and 30970 then replace the dummy values with 
the real onea (NOTE: if you get a value auch aa 76, you will have to 
replace it aa POKE 30969,076, because you will otherwise shorten the 
program.) | | 

This ia the вапріе save routine іп full. 


7025 CLS: PRINT" PRESS RECORD ON THE TAPE": GOSUB 970 

7027 КЕМ 97@ - PRESS ANY KEY... 

7030 РОКЕ 30884,195: POKE 30885, 206 

7040 POKE 302969,251: POKE 30970,206 

7050 CSAVE “ADVDATA" 

7060 POKE 30884,233: POKE 30885,122 

7070 POKE 30969,1808: POKE 30970,182 

7875 REM SOUND A BEEP. (DO THIS LATER) 

7080 Кв-"5ТОР THE ТАРЕ":” Кв IS THE MESSAGE RETURNED TO THE PLAYER. 
7090 RETURN | | 


= If you wish to load your data block into memory, all you have to 
do ia CLOAD it. However if you want to do this from inside the program 


Ж 


BASIC commanda left dormant оп the VZ. this діуеа the number of bytes 
of memory free.) For example, if you own an expanded VZ300 and you 
find that the amount of free memory waa 18393, you would place your 
data ай а position ending а quarter of a kilobyte below 47103. 
However, if the value was fairly close to 16384, you would need to 
place your data about а quarter of a kilobyte below 53247. The 
actual routine to move the data into high memory is fairly simple. 


7000 Е(35)=К: FC36)=S: FC37)=W 
7012 FOR I=1 TO 38:POKE 52931 - 65536 +I,F(I): NEXT 
7020 FOR І-1 TO 17:POKE 52969 - 65536 +І,С(І): NEXT 


The important variablea R,S апа W (which are the player’a current 
location, atrength, and amount of weight carried) are placed into the 


F array. The contenta of the F array are POKEd into the memory 
locationa 52932-52969 (minus 65536 of courset) by the means of a 
aimple loop. Likewise the contentas of the С array are POKEd into 
locationa 52970-52986. (Don’t worry too much about what the F and the 
С arraya do for the moment - they will be studied in more detail later 
on. Basically, the С array recorda the locationa of the objecta the 
player can pick up, and the F array records the actions a player has 
carried out - if a particular door haa been opened, or a hidden object 


made viaible.) Note that іп thia particular instant the data іа loaded 


to the top of memory of an expanded VZ200 - 261 bytes below the actual 
top of memory (53247). Alao note that because the data must be POKEd 
into various memory locationa, the maximum value of any element of the 
F апа С arraya cannot exceed 255, but programmers should not find this 
а major limitation. . | 

When а saucceasful load is made from tape, the data is returned to 
the memory locationa from which it іа saved. Therefore the routine 
which placea thia data into the appropriate variables and arrays із 
simply the "геуегае" of the routine which moves the data to high 
memory. 


7158 РОКЕ 31070,0: FOR Ісі to 38: FCI) = PEEK (52931 - 65536 +I): NEXT 
7160 FOR I=1 to 17: С(І) = PEEK (52969 - 65536 +I): NEXT 

7170 R=F(35): S=F(36): W=F(37) 

7180 RETURN 


The data ia PEEKed into the F апа C arraya using two 1оора. The valuea 
of R,S and W are regained from the F array. 

The next trick ia to fool your VZ into thinking your data is a 
BASIC program во it will aave it to tape aa one. (If you have a сору 
of the article “Memory Dumpa To Tape" which appeared in VZ Down Under 
# 7 апа also LE’VZ newsletter # 16 it would probably be a good idea to 
refer to it.) When the VZ аауеа а program it simply savea everything 
in between the memory location apecified in the Start Of Basic. pointer 
and that аресіғіеа by the End Of Basic pointer, sometimes also, known 
as the start of Simple Variables Table pointer. For those of you 
who have not come асгоаа a pointer before, it consists of two bytes 
(the valuea in memory locationa 30884 and 30885, which іа the Start Of 
Basic pointer, for example.) The lower value contains the LEAST 
SIGNIFICANT BYTE (LSB) of the addreas being pointed to and the higher 
value contains the MOST SIGNIFICANT BYTE (MSB). When you multiply the 
value of the MSB by 256 and then add the value of the LSB you will get 
the value being pointed to. For example, if you PEEKed at the values 
in 30884 and 30885, on most occassions the values returned will be 233 
and 122 respectively. When 122 ia multiplied by 256 and 233 is added 
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there are a couple of complicationa. Firatly the CLOAD command clears 


all of the variablea, and Becondly it enda the program run. A marginal 
improvement ia the CRUN command Which will atill clear the variables 


but will reatart the program afterwarda. Alao both commanda will leave 


the EOB and two other pointers - the Start of Dimenaioned Variables 
Table (DVT - 3097172) апа the End of Variablea Table €30973/4) - with 
the addreas of the end of the data block. Because the Top Of Memory 
СТОМ - 30897/8) haa been lowered below thia value in order to protect 
your data block, the reault will Бе `ап ?00Т OF MEMORY ERROR. The 
Baolution to thia ia to raise the TOM and another pointer, the Top of. 
Stack (TOS) back to their original valuea, CLEAR @ to stabilise the 
other pointers, CRUN your data block, then reatore the SOB, EOB, DVT 
апа EVT pointera to their correct values (at the atart of the progran, 
because it haa reatarted after the CRUN command), before once again 
lowering TOM and Tos. The valuea to be POKEd into the ТОМ and TOS 
can be obtained Һу uaing your own particular value of TOM and the same 
calculationa as before. IE | 
MSB = INT(addreas/256) | 

LSB = addresa - (MSB «x 256) 

The TOS ahould һе kept 50 bytea below the ТОМ ао if your MSB for the 


TOM іа 297 and the LSB ia 255, for the TOS, the MSB and LSB will be 


207 and 205 reapectively. | 

Аа the program reatarta, there will be no variablea іп use, ао the 
DVT and EVT will hold exactly the same valuea аа the EOB. As a rough 
guide for lowering the TOM and TOS, if your data block ia leas than 
about 250 bytes long (moat will be) Simply lower the MSB of both the 
TOM and TOS by 2. | Š 

Laatly for thia routine aa the program will reatart after loading, 
the program will need to know whether it ia juat being RUN or whether 
it haa restarted after a CRUN command. This can be done by POKEing a 


certain value into a certain memory location, and then just after the 


Program restarta checking thia location. I chose to POKE 42 into 
location 31670 (ап unused addresa іп the. Communications Region) but 


sample LOAD routine 


7100 POKE 31070,42:С15: PRINT “START THE TAPE.": GOSUB 970 
7118 POKE 30897,255: POKE 30898, 207 | 

7120 POKE 30880,205: POKE 30881, 207 

7125 CLEAR доро | | 

7138 ОКОМ "“ADVDATA" | 

7135 “РКОСКАМ RESTARTS AFTER ТНІ5 


START OF PROGRAM 


POKE 30884,233: POKE 30885,122 
З РОКЕ 30969,108: POKE 30979,182 
4 POKE 30971,108: POKE 30972,142 
S POKE 30973,198: POKE 30974,182 
6 
7 
1 


ho 


POKE 30897,255: POKE 30898, 205 
POKE Зеадо, 205: POKE 30881,2605 
1 CLEAR 700 


INITIALISATION 


[3 








hs Slate АА кезе etl тал ызы Аба 


Т7 gee 


244% 


os IF PEEK (31070)-42 THEN GOSUB 7152 and 
55 7 LOAD DATA FROM MEMORY INTO VARIABLES 


Note that you will need to put dummy values into lines 2,3 and 4 until 
you know what the exact values of the EOB. For those of you who type 
in the example program, it is unlikely that you will type it exactly 
as it appears, so you will need to peek 30969 and 30970 when you have 
finished typing it in and place these values іп 2,3,4 and 7070. 

With line 25 above, after the initialisation has put the default 
(starting) values Зп the С and F arrays, this causes a call to line 
715@ which will replace these with the values that were loaded. The 
program flow then continues 50 that the player can continue from where 
the game was saved | | | 5 | 

Now the moment of truth for those that installed the feature. 
CSAVE your program again (роп? tape over your laat copy) because if 
you have made a miatake either the aystem will crash or you will get 
an ТОМТ OF MEMORY ERROR, both of which would һауе fatal consequences 
for your program. RUN. your program, and move around, carrying out а 
few different actiona 80 the game atatua is different from the start. 
Type SAVE at the prompt, press record on the tape, then апу key on the. 
keyboard. Stop the tape after the beep if:syou decided to one in the 
program, or when the next location screen appears if you didn’t. BREAK 
the program and rewind the tape to before the start of your file. RUN 


the program again, typing LOAD at the first prompt, pressing play then 
any key. The program should restart (Неге ia the spot where the TOUT 


OF MEMORY ERRORa occur) and hopefully а new location acreen will 
appear. If ао you have succesafully installed а LOAD/SAVE feature to 
your program! | $ 

(Because ой the мау the feature іа inatalled, there аге а Ғеч 
short cuta the adventurer can take with thia routine. If you don’t 
want to load the data from within the program, you can CLOAD your 
data, type PORE 31@70,42, load your adventure program, if you haven‘’t 
already, then run it. Also if you have loaded your progress, and then 
while you are playing your character bites the duat, you can resurrect 
it from where you last loaded the progresa by BREAKing the program, 
and ніпріу typing POKE 31070,42 before running it again. The data 
ahould still be іп memory from the last load and this causes the 
computer to call the routine at line 7150.) | 

Well thia just about wraps it up for this edition. Later on we 
will be examinig how thia method can be developed so the program can 
be aplit into modules во you сап create longer adventures which don’t 
all occupy memory at the same time. (For those of you that have the 
listing of аесііоп two of the demonatration program, you can atill 
type it in without knowing how it works. Just place dummy values in 
lines 6,7,5 and 7182 and replace these with the value of the EOB. То. 


pun it you must SAVE your progress at the end of section one and load 


thia aa goon аа section two tella you to.) 

Finally, if you had problems understanding this section, don’t 
worry. Although а LOAD/SAVE feature ia useful, it is not essential and 
you don’t have to include it in your adventurea. Thiaé part ia the most 
complex, and the reat of the aeries ahould be much simpler. 
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